home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d21 / dv2view.arc / QUICKDV.BAT < prev    next >
DOS Batch File  |  1990-06-24  |  9KB  |  299 lines
  1. @echo off
  2.    rem JACOB'S WELL  1:382/50 Fidonet
  3.    rem QUICKDV.BAT  Updated: 02-16-1990 v2.62   DesqView MODE
  4.    rem ---------------------------------------------------------------
  5.    rem  Set-up DOS environment
  6.  
  7. set BINKLEY=C:\QBBS\
  8. set SYSOP=Rs Zabbage
  9. set GADS=YES
  10. set TEARLINE=r (386)
  11. c:
  12. rem d:\tools\mark
  13. c:\dos33\bin\dvansi
  14. cd\qbbs
  15.  
  16.    rem ***************************************************************
  17. :Start
  18.  
  19.    rem  Set the Clock (XT Only)
  20.    rem timer/s
  21.  
  22. capture
  23.  
  24.    rem  Execute Binkley, leaving the Fossil 'hot' upon Exit
  25. BT Share
  26.    rem  On Exit from Binkley...
  27. if errorlevel 192 goto 19200_baud
  28. if errorlevel 96  goto 9600_baud
  29. if errorlevel 80  goto Net_only
  30. if errorlevel 60  goto Net&echo
  31. if errorlevel 50  goto Poll_George
  32. if errorlevel 40  goto Undial
  33. if errorlevel 31  goto Out
  34. if errorlevel 30  goto Clean
  35. if errorlevel 24  goto 2400_Baud
  36. if errorlevel 20  goto Localbbs
  37. if errorlevel 12  goto 1200_Baud
  38. if errorlevel 10  goto Unpackmail
  39. if errorlevel  3  goto 300_baud
  40. if errorlevel  1  goto Out
  41. goto Start
  42.  
  43. :Poll_George
  44. PLEASE POLL 382/8 CRASH
  45. goto Net&echo
  46.  
  47. :19200_baud
  48. QuickBBS -b19200 -E0
  49. goto After_quick
  50.  
  51. :9600_baud
  52. QuickBBS -b9600 -E0
  53. goto After_quick
  54.  
  55. :2400_baud
  56. QuickBBS -b2400 -E0
  57. goto After_quick
  58.  
  59. :1200_baud
  60. QuickBBS -b1200 -E0
  61. goto After_quick
  62.  
  63. :300_baud
  64. QuickBBS -b300 -E0
  65. goto After_quick
  66.  
  67. :Localbbs
  68. QuickBBS -L -E0
  69. goto After_Quick
  70.  
  71. :Restart_Quick
  72. c:
  73. cd\qbbs
  74.    rem  Restart Quickbbs by logging in the last user and exiting with an
  75.    rem  error level of 0 when the user logs off.
  76. QuickBBS -R -E0
  77.    rem  Fall through to After_Quick after leaving QBBS
  78.  
  79. :After_Quick
  80.    rem  Check for error levels that require servicing on QBBS exit
  81.    rem  Error level six is set from a menu that shells to the outside
  82.    rem  Error levels 3, 4, and 5 must be enabled in the QCONFIG program.
  83. if errorlevel 100 goto Twedit
  84. if errorlevel 90 goto Tw
  85. if errorlevel 6 goto Outside
  86. if errorlevel 5 goto Net&echo
  87. if errorlevel 4 goto Echo_only
  88. if errorlevel 3 goto Net_only
  89.    rem  Restart BBS
  90. goto Start
  91.  
  92. :twedit
  93. cd c:\QBBS\tw
  94. twedit c:\QBBS\dorinfo1.def
  95. goto Restart_Quick
  96.  
  97. :tw
  98. cd \qbbs\tw
  99. echo INTERGALACTIC EMERGENCY CHANNEL TRANSMISSION FOLLOWS: > com1:
  100. echo MAYDAY!  ______   MAYDAY!  ______   MAYDAY! >com1:
  101. echo CABAL 'DOOMSDAY' MECHANISM HAS BEEN ENABLED > com1:
  102. echo UNABLE TO CYPHER 'DISABLE' PASSWORD > com1:
  103. echo EXTINCTION OF ALL CARBON-BASED SPECIES IMENENT... > com1:
  104. copy c:\qbbs\dorinfo1.def c:\qbbs\tw
  105. tw2.exe c:\QBBS\dorinfo1.def
  106. REM copy /b clearscr.asc + twmesg.dat c:\qbbs\txtfiles\twmesg.asc
  107. REM copy /b clearscr.asc + tw-day.dat c:\qbbs\txtfiles\tw-day.asc
  108. goto Restart_Quick
  109.  
  110. :Outside
  111.    rem  errorlevel 6 jump from After_Quick
  112.    rem  Turn on the carrier detect program
  113. WATCHCD COM1 ON
  114.    rem  Change the Console I/O to Com1
  115. ctty GATE1
  116.    rem <Run outside program here>
  117. COMMAND.COM
  118.    rem  Change the I/O back to the console
  119. Ctty CON:
  120.    rem  Turn the carrier detect program off
  121. WATCHCD COM1 OFF
  122.    rem  Reload the qbbs program
  123. goto Restart_Quick
  124.  
  125. :Net&echo
  126.    rem  errorlevel 5 jump from After_Quick
  127.    rem  set modem for 'BUSY'
  128. d:\tools\AT M0H1
  129.    rem  scan the qbbs message base for outgoing mail
  130. MAILSCAN 3
  131.    rem  scan the qbbs message base for outgoing echo mail
  132. QECHO -E -F -P -Z
  133.    rem  go to bundle to bundle the generated messages
  134. goto Bundle
  135.  
  136. :Echo_only
  137.    rem  errorlevel 4 jump from After_Quick
  138.    rem  set modem for 'BUSY'
  139. AT M0H1
  140.    rem  scan the qbbs message base for outgoing echo mail
  141. QECHO -E -F -P -Z
  142.    rem  go to bundle to bundle the generated messages
  143. goto Bundle
  144.  
  145. :Net_only
  146.    rem  errorlevel 3 jump from After_Quick
  147.    rem  set modem for 'BUSY'
  148. AT M0H1
  149.    rem  scan the qbbs message base for outgoing mail
  150.    rem  go to bundle to bundle the generated messages
  151. MAILSCAN 3
  152. goto Bundle
  153.  
  154. :Unpackmail
  155.    rem  ECHOGEN unpacks the incoming packets and tosses the echo mail
  156.    rem  MAILTOSS tosses the net mail into board 3 while killing the null
  157.    rem  messages
  158.    rem  set modem for 'BUSY'
  159.    rem run Kill0.exe to kill off any Zero length Files in c:\qbbs before unpacking
  160. d:\tools\AT M0H1
  161. KILL0
  162.    rem  If a new NODEDIFF is not here then go to bundle any outbound messages
  163.    rem  Otherwise, compile the new nodelist, then...
  164.    rem  Fall through to bundle to bundle any messages that were generated
  165. cd\qbbs\netfiles
  166. SPAZ -F -M382/50 -Q c:\qbbs\netfiles
  167. del *.MO?
  168. cd\qbbs
  169. QECHO -LECHOMAIL.BBS -P -U -T -Z
  170. MAILTOSS -F -K
  171. QLINK -LECHOMAIL.BBS
  172. if exist c:\qbbs\ECHOMAIL.BBS del c:\qbbs\ECHOMAIL.BBS
  173. copy c:\qbbs\ECHOMAIL.MIN c:\qbbs\ECHOMAIL.BBS
  174. if exist c:\qbbs\*.KDP del c:\qbbs\*.KDP
  175. if exist c:\netfiles\*.MSG del c:\qbbs\netfiles\*.MSG
  176.    rem  Jump to Bundle if no NODEDIFF
  177. if NOT exist c:\qbbs\netfiles\NODEDIFF.* goto Bundle
  178. copy c:\qbbs\netfiles\NODEDIFF.*
  179. del c:\qbbs\netfiles\NODEDIFF.*
  180. PKXARC NODEDIFF.*
  181. PARSELST
  182. DAYNBR /-7 /d5
  183. del NODEDIFF.*
  184.  
  185. :Bundle
  186.    rem  Run OMMM to bundle the messages
  187.    rem  Run Fixnulls first to correct any MSG with bad EOF
  188. Rem QBUNFIX C:\QBBS\OUTBOUND -LC:\QBBS\SYSTEM.LOG
  189. Rem FIXNULLS C:\QBBS\Outbound\*.*
  190. OMMM -Cc:\qbbs\ommm.ctl -hc:\qbbs\outbound\ -ic:\qbbs\BINKLEY.PRM -mc:\qbbs\netmail -z1 -0
  191. goto Start
  192.  
  193. :Clean
  194.    rem  set modem for 'BUSY'
  195. d:\tools\AT M0H1
  196. CD\QBBS\TW
  197. TWMAINT.EXE
  198. CD\QBBS
  199.    rem  Make sure no mail to be processed first....
  200.    rem  If a new NODEDIFF is not here then go to bundle any outbound messages
  201.    rem  Otherwise, compile the new nodelist, then...
  202.    rem  Fall through to bundle2 to bundle any messages that were generated
  203.    rem  Kill off ant Zero lenths files in C:\QBBS to prevent MSG base Crash
  204. Rem Generate New QBEST Activity Reports
  205. QBEST QBEST Jacob's_Well D15 U15 M15 K15 A50 /R /Z /E /C /L /S /Q
  206. Copy QBEST.ASC C:\QBBS\QBEST.LOG
  207. DEL QBEST.ASC
  208. DEL QBEST.ANS
  209. BTREPORT
  210. KILL0
  211. cd\qbbs\netfiles
  212. SPAZ -F -M382/50 -Q c:\qbbs\netfiles
  213. del *.MO?
  214. cd\qbbs
  215. QECHO -LECHOMAIL.BBS -P -U -T -Z
  216. MAILTOSS -F -K
  217. QLINK -LECHOMAIL.BBS
  218. if exist c:\qbbs\ECHOMAIL.BBS del c:\qbbs\ECHOMAIL.BBS
  219. copy c:\qbbs\ECHOMAIL.MIN c:\qbbs\ECHOMAIL.BBS
  220. if exist c:\qbbs\*.KDP del c:\qbbs\*.KDP
  221. if exist c:\netfiles\*.MSG del c:\qbbs\netfiles\*.MSG
  222.    rem  Continue normal cleanup...
  223. if exist c:\qbbs\*.KDP del c:\qbbs\*.KDP
  224. if exist c:\qbbs\netfiles\*.MSG del c:\qbbs\netfiles\*.MSG
  225.    rem  Jump to Bundle2 if no NODEDIFF
  226. if NOT exist c:\qbbs\netfiles\NODEDIFF.* goto Bundle2
  227. copy c:\qbbs\netfiles\NODEDIFF.*
  228. del c:\qbbs\netfiles\NODEDIFF.*
  229. PKXARC NODEDIFF.*
  230. PARSELST
  231. DAYNBR /-7 /d5
  232. del NODEDIFF.*
  233.  
  234. :Bundle2
  235.    rem  Run OMMM to bundle the messages
  236. OMMM -hc:\qbbs\outbound\ -ic:\qbbs\BINKLEY.PRM -mc:\qbbs\netmail -cc:\qbbs\OMMM.CTL
  237.  
  238.    rem  Kill messages over Max_Count in Areas nn
  239.    rem  MSGUTILS KILLCNT 3 -N25
  240.    rem  Kill messages in Areas nn that are Older than nn days
  241. KILL0.EXE
  242. MSGUTILS KILLOLD 10 11 12 14 13 15 16 17 18 19 20 21 22 23 24 -D3
  243. MSGUTILS KILLOLD 25 -D30
  244. MSGUTILS KILLOLD 26 27 28 29 30 31 32 33 34 35 36 37 38 39 -D3
  245. MSGUTILS KILLOLD 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 -D3
  246. MSGUTILS KILLOLD 55 56 57 58 59 60 -D3
  247. MSGUTILS KILLOLD 63 -D3
  248.    rem  Optimize c: prior to packing message base
  249.    rem First preserve MENUCORE from MENU WORKS
  250. d:\tools\FA C:\MENUCORE.$$$ /CLEAR
  251. d:\tools\FA C:\MENUCORE.$$$ /R+ /HID+
  252. rem OPTUNE C: /OP
  253. d:\tools\FA C:\MENUCORE.$$$ /CLEAR
  254.    rem  Check for any errors in message base
  255. CHKMSG
  256.    rem  Pack message base, Renumber and use 'Write-In-Place' mode
  257. Echokdup.exe
  258. MSGPACK -I
  259. MSGPACK -R -W
  260.    rem  Sort USER files on Access priv
  261. rem USERSORT -B
  262.    rem  Pack and delete anyone who hasn't logged on in the last nn days
  263. USERPACK -B -D180
  264. FIXUSER
  265.    rem  Output ASCII User list for Sysop browsing
  266. if exist c:\qbbs\USERLIST.TXT del c:\qbbs\USERLIST.TXT
  267. USERLIST
  268.    rem  Get rid of any backup files
  269. if exist c:\qbbs\outbound\*.$$? del c:\qbbs\outbound\*.$$?
  270. if exist c:\qbbs\*.BAK del c:\qbbs\*.BAK
  271. if exist c:\qbbs\areas.kdp del c:\qbbs\areas.kdp
  272.    rem  Prepare new list of available PD files
  273. if exist C:\QBBS\F382-050.ZIP del C:\QBBS\F382-050.ZIP
  274. ALIST
  275. PKZIP -M C:\QBBS\F382-050 C:\QBBS\F382-050.TXT
  276. if exist C:\QBBS\F382-050.TXT del C:\QBBS\F382-050.TXT
  277. COPY C:\QBBS\F382-050.ZIP D:\1MISC
  278.    rem  Kill record of last Areas receiving mail
  279. if exist c:\qbbs\ECHOMAIL.BBS del c:\qbbs\ECHOMAIL.BBS
  280. copy c:\qbbs\ECHOMAIL.MIN c:\qbbs\ECHOMAIL.BBS
  281.    rem  Optimize c: after processing clean-up
  282.    rem First preserve MENUCORE from MENU WORKS
  283. d:\tools\FA C:\MENUCORE.$$$ /CLEAR
  284. d:\tools\FA C:\MENUCORE.$$$ /R+ /HID+
  285. rem OPTUNE C: /OP
  286. d:\tools\FA C:\MENUCORE.$$$ /CLEAR
  287.  
  288. goto Start
  289.  
  290. :Undial
  291. del \qbbs\outbound\*.$$?
  292. goto Start
  293.  
  294. :Out - Byebye - Chow
  295.    rem  set modem for 'BUSY'
  296. d:\tools\AT M0H1
  297. rem d:\tools\release
  298.    
  299.